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OPTLEVEL= 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
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ie ALL RIGHTS” RESERVED. 
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i$-se 1984 23:43:29 AX-11 Bliss-32 V4.0-74 
12208-1382 $3393: 1 BONY SRLICONVRAN O3004 
i++ 
Facility: VAX=11 CONVERT 
Abstract: CONVERT main routines 
i Contents: 
! CONVERT 
! GET_RECORD 
! GET VM 
! FREE_VM 
' GET_TEMP_VM 
! FREE_TEMP_VM 
! EXCEPTION 
END_OF FILE 
Environment: 
VAX/VMS Operating System 
Ss 
! 
Author: Keith 8 Thompson Creation date: June-1980 
; 
i Modified by: 
V03-010 JWT0194 Jim Teague 31-Aug-1984 
Fix problem with missing data on UDF input. 
v03-009 JwT0185 Jim Teague 28-Jun-1984 
Make FIN carriage control improvements: 


- NEVER just tons away FIN ccl bytes 

- provide hon ony oqutcetons conversion 
betwe N <---> PRN files. 

~ provide 0 visually equivalent 


---> conversion, 

v03-008 weresry Keith B. Thompson 21-Jan-1983 
Add RSZ error code to exception 

v03-007 KBT0466 Keith B. Thompson 21-Jan-1983 
Fix conv$$free_temp_vm 

v03-006 KBT0434 Keith B. Thompson 16-Dec-1982 
Fix some of the carriage control checking 

v03-005 eeTO387 Keith B. Thompson 27-0c t-1982 
Have get_vm and get_temp_vm zero the space allocated 

v03-004 KBT0381 Keith B. Thompson 25-0c t-1982 

Make RMS$_SEQ error non-fatal 


v03-003 KBT0376 Keith B. Thompson 22-0c t-1982 
Replace conv$v_dcl with conv$v_signal and make vm buffers 
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d control-y processing in rE 
conv$$rms_read_error in conv$$exception 
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CONVSMAIN VAX=11 CONVERT 1S-se -1984 23:43:29 AX=11 Bliss-32 V4.0-74 
voe~000 12-808= 1384 $342; 1 CONV. SRCJCONVMAIN.B32; 
; WP 97 1 
: 4 38 1 PSECT 
: 101 99 1 = _CONVSOWN (PIC), 
74 : 100 1 GLOBAL = “CONVSGLOBAL (PIC) 
: 10 101 1 PLIT = “CONVSPLIT  (SHARE,PIC), 
; 104 ; CODE = “CONVSCODE (SHARE.PIC);: 
> 106 104 1 LIBRARY 'SYSSLIBRARY:118.L32"; 
3 4 199 : LIBRARY ‘SRC$:CONVERT'; 
: 109 b109 1 DEFINE_ERROR_CODES; 
> 110 0108 1 
: 0111 109 1 EXTERNAL ROUTINE 
; 118 0110 1 LIBSGET VM : ADDRESSING MODE (GENERAL), 
: 11 0111 1 LIBSFREE_VM : ADDRESSING MODE (GENERAL) . 
> 114 11g 1 CONVSSSORT_PRIMARY : CLSSORT_PRIMARY, 
: 115 13 1 CONVSSFAST-LOAD : CLSFAST“LOAD, 
: 116 O14 CONVSSRMS_READ_ERROR : NOVALUE: 
: 118 0116 1 FORWARD ROUTINE 
> 119 0117 1 CONVSSGET_RECORD : CLSGET_RECORD, 
; 120 0118 1 CONVSSGET-VM : CLSGET-VM 
: 121 0119 1 CONVSSFREE_TEMP_VM : CLSFREE_TEMP_vM NOVALUE , 
; 1¢¢ 0120 1 CONVSSEXCEPT ION; 
: 12 0121 1 ONVSSEND_OF_FILE : NOVALUE, 
> 126 01 2 1 CONVSSPUT-RECORD, 
> 125 0123 1 CONVSSMAP~FTN_CCL; 
; 126 0124 1 
: 127 0125 1 EXTERNAL 
3 128 O126 1 CONVSGL_APPEND : LONG, 
> 129 0127 1 CONVSGL—CREATE : LONG, 
4 0128 1 CONVSGL EXC : LONG, 
: 131 0129 1 CONVSGL—EXI : LONG, 
; 132 0130 1 CONVSGL—FAST : LONG, 
: 133 131 1 $GL-FI : LONG, 
: 1 01 : 1 CONVSGL~MERGE : LONG, 
: 135 013 1 $GL~PAD LONG, 
: 1 134 1 CONVS$GL—PAD_CHAR LONG, 
: 137 0135 1 CONVSGL~ SHARE ONG, 
: 138 0136 1 CONVSGL—SORT LONG, 
: 139 oi f CONVSGL~ TRUNCATE G, 
$141 9159 1 CONVSAB_FLAGS : BLOCK C ,BYTE J, 
: 148 140 1 CONVS$GL~VALID_COUNT 
> 14 141 1 VSGL-EXCEPT COUNT, 
> 144 168 1 GB-CURRENT FILE =: BYTE, 
> 145 143 1 CONVS$GW"OUT_MRS : WORD, 
i 146 144 1 CONVSGW_UDF ~MRS : WORD 
: 14 145 1 CONV$GW~IN_REC_S1Z : SIGNED WORD, 
> 148 146 1 V$GW~OUT_REC SIZ : SIGNED WORD, 
> 149 147 i CONVSGL-RECORD_PTR, 
; 150 148 1 “RECORD™ COUNT, 
> 151 149 j “MAX_REC_S1Z : WORD, 
: 13¢ 130 1 CONVS$GL-REC"BUF PTR, 
> 15 151 1 CONVS$GL~VFC"BUF “PTR. 
; 134 138 CONVSGL~RFA~BUFFER, 
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corns 


e output file. 


UBF 


A 
REC_BUF _PTR 
RBF 
UB 


20 


RHB 
RHB 


VF.C_BUF _PTR 


*CONVERT' 
Sets up the record buffer pointers and og Bayes conversion, 


sorts the input file if needed and loads 


How the buffers work: 
No /FIXED_CONTROL or neither or both files VFC 


Neither or both files FIN 


The main record buffer: 
INPUT RAB: 


Output file FIN 


INPUT RAB: 


Input file FIN 


Functional Description: 
INPUT RAB: 


OUTPUT RAB: 


GLOBAL ROUTINE CONVSSCONVERT = 
OUTPUT RAB: 
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14.53 Sep-1 2:43:29 
Verge} 882 $3592 553 
emmeiores Value: 

CONVS_SUCCESS or error code 
i Routines Called: 

cowvessonT PRIMARY 

CONVSSFAST_LOA 

CONVSSCET "RECORD 

CONVSSEXCEPTION 

CONVSSEND_OF FILE 

CONVSSFREE_TEMP_VM 
t Side yibie ha 


BEGIN 
DEF INE_KEY_DESC_GLOBAL; 


Seeeeeereearaeeeeee 


CONVSAB_FLAGS C CONVSV_MAPFIN J = 0; 
laeeeeeeeekeeekeene 
Setup Buffer Pointers etc. 


' 
i 
i ss the FIX Option is on and only one of the files 
i ha as VFC Format will pointers be moved 
if 


-CONVSGL FIX AN 
( .CONVSAB_ IN FAB_C_FABSB_RFM J EQL FABSC_VEC ) XOR 
co t EONVSAB SAB"OUT_FAB C FABSG_RFM ) EQL FABSC_VFC )) 
If ,CONVSAB_IN_FAB C FABSB_RFM } EQL FABSC_VFC 
BEGIN 


The Input File is VFC 


REC_ADJUST = .C NVSAB IN_FA c FABSB_FS2 ); 
CONVSAB_IN_RAB RAB . CONVSGL_VFC_BUF_PTR; 
CONVSAB- IN"RAB RASS UBF } = .CONVSGL~ NEC “BUF "PTR: 
CONV$AB-OUT_RAB C RABSC_RBF .. .CONVS$GC_VFC_BUF_PTR 

ELSE 
BEGIN 


: The Output File is VFC 
REC_ADJUST = = .CONVSAB_OUT_FAB C FABSB_FSZ ); 


Se - , 


AX-11 Oh ieee 32 V4.0-74 
CONV. SRCJCONVMAIN.B32; (4 


yan} 7 convent 14-52 -1 163: ? AX-11 Bliss-32 V4.0-74 
ONVE lhe 3e07} 382 93:43 CONV. she CON AT sae 3 


CONV$AB_IN_RAB C_RABSL_UBF a) . CONVSGL_VFC_BUF_PTR: 
CONV$AB_OUT_RAB t RABSC RH “2” CONV GC_vrC_BuF PTR; 


suey VSAB_OUT-RAB LC RABSL_ RF = .CONVSGL_ “REC “BUF PTR’ 
ELSE 
BEGIN 
: Either ~s Both are or are not VFC files 
Rec ADJUST = 


CONUS SAB INL RAS Bt arr tty UBF J] = .CONVSGL_RE 

~— ste crue ge ot L-VFC— 
CLR -CONVS$GC_R 
fd “OUT~ “has RABSL -hte = .CONVSGL_V 
Take care of some special cases 


: 
| 
{ 
| 
| 
If the input is FTN and the output isn't... 
| 
| 


6 . 

Ht attain atte C FABSV_FTN ] AND NOT .CONVSAB_OUT_FAB C FABSV_FITN J 
70 : 

A Output is PRN -- do a carriage control approximation 

4 if .CONV$AB_OUT_FAB C FABSV_PRN 

fe 7 BEGIN 

76 CONVSAB_ ta C CONVSV_MAPFTN J] = CONVSC_FTNPRN; ' (1) 
77 CONV$AB_ OU TAR AB C RABSC_RBF J = . CONVSAB~ OUT _RAB C RABSL_RBF J) + 1; 
78 REC_ADJOST = 1; 

79 N 

80 ELSE 

Be i 

33 


: Output is CR:STM -- do visual approximation 
if ;,CONVSAB_OUT_FAB C FABSB_RFM J) EQL FABSC_STM 


85 
3 


GIN 
CONVSAB_FLAGS C CONVSV_MAPFIN J] = CONVSC_FINSIM;; ! (2) 
CONVS$GL~ “STA ~BUF = CONVESGET _VM ( STM_BUFSIZ ); 
CONVSGL-STM-R EC LEN = 
coh ONVSAB_ FL AGS “CONVSV_ “Hest REC J 

ONVSAB~IN_RAB C RABSL“UBF )~= C ONVSAB.. IN_RAB C RABSL_UBF } + 1; 
Rec ADJOST” . "3: 
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ooo 


: If the output file is FIN and the input file is not ... 
if ;,CONVSAB_OUT_FAB C FABSV_FTN J AND NOT .CONVSAB_IN_FAB C FABSV_FIN J 
i] 


WANA. AAA AAI 


SRANLS SSNS NEU S 


If PRN --> FIN, then do an approximation... 
if .CONVSAB_IN_FAB C FABSV_PRN J | 
THEN 
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BEGIN 
CONVSAB_FLAGS C CONVSV_MAPFIN ) = CONVSC_PRNF IN; ' (3) 
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C 

REC 

E 
ELSE . 
LOCAL RECORD_BUFFER : REF VECTOR C ,BYTE J; 


RECORD BUFFER = .CONVSAB_IN_RAB C RABSL_UBF J; 
RECORD BUFFER C 0 ] = 20; 


JUS 


VAtc11 CONVERT HSosenct9ge 25:45:29 yanett ol esc32 v4.02 


ONVSAB_IN_R RABS F - CON NRA R F 3 
PC ADIOS! > te C RABSL_UBF J] = .CONVSAB_I B C RABSL_UBF J + 1; 


! 20 = ASCII space 


CONVSAB.IN.RAG C RABSL_UBF J = .CONVSAB_IN.RAB C RABSL_UBF J + 1; 


REC_ADJOST™ 

END; 
' If the Bay file is PRN and the input is not VFC 
' then p = CR control info into the VFC field of the output 
! NOTE: PYMS print files are *'018D"' in stead of ' ABS which would 
; be more reasonable? 
if .CONVSAB OUT_FAB C shar ape PRN J AND 


THEN 
BEGIN 


LOCAL RECORD_BUFFER : REF VECTOR C ,BYTE J; 
RECORD_BUFFER = .CONVSAB_OUT_RAB C RABSL_RHB J; 


-CONVSAB_IN_FAB C FABSB_RFM ) NEQU FABSC_VFC ) 


RECORD_BUFFER [ 0 oy = £x'01"; ! One LF 
RECORD_BUFFER = %x'8D' ! CR 
END; 

END; 


: The exception record is always the record pointed to by the output rab 
CONVSAB_EXC_RAB C RABSL_RBF J) = .CONVSAB_OUT_RAB [ RABSL_RBF J; 

: Save the pointer to the output record 

CONVSGL_RECORD_PTR = .CONVSAB_OUT_RAB C RABSL_RBF J; 

: Initialize some Variables 


Convsas INR f RABSW_USZ ] = .CONVSGW_MAX_REC_SIZ; 
E_COONT™= 


: If SORT is on then sort the records on the output primary key 
i. COMVEGL _SORI 

RET_ON_ERROR( CONVSSSORT_PRIMARY() ); 
BEGIN ! STATUS local 


i 
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C IN VAX=11_ CONVERT 1-se 1984 23:43:29 AX-11 
ONVER 12-360-1982 13:42:63 CONV.S 


LOCAL STATUS =: LONG; 
: If FAST then call FAST_LOAD, otherwise do it the slow way 
IF _ .CONVSGL_FAST 
STATUS = CONVSSFAST_LOAD() 
ELSE 
BEGIN 
H Restore the output rab pointer (sort_primary destroys it) 
CONVSAB_OUT_RAB C RABSL_RBF J) = .CONVSGL_RECORD_PTR; 
: Enter Main Loop 
: Loop untill an error or end of file 
WHILE ( STATUS = CONVSSGET_RECORD() ) 
IF giCONVSAB_FLAGS C CONVSV_MAPFTN ) NEQ CONVSC_FTNSTM 
IF NOT ( STATUS = CONVSSPUT_RECORD () ) 
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491 be EXITLOOP; 
49 oe 9 : 
49 90 ! Finish off this file 
494 0491 ! 
495 84 CONVSSEND_OF _FILE() 
496 ee 
497 9% END; 
498 0495 
r}44 Bs38 : Deallocate all of the temporary memory used by this run 
501 0498 CONVSSFREE_TEMP_VM(); 
208 89 
44 O01 : If end of file thats normal 
205 308 if ( .STATUS EQL RMS$_EOF ) 
209 0304 STATUS = CONV$_SUCCESS; 
508 505 
44 0307 RETURN .STATUS 
11 508 END ! STATUS local 
12 0509 END; 


- TITLE conysnain VAX=11 CONVERT 
-IDENT \v04-000\ 


-PSECT _CONVSOWN,NOEXE, PIC,2 
00000 DYN_AREA. CNT : 
00004 DYN_AREA_ ADDR: 


3 
VSMAIN VAX=11 CONVERT 15-5 e £43: ? AX-11 Bliss-32 V4.0-74 
voe~000 CONVERT 1h- i 1384 13:48 CONV. SRCJCONVMAIN.B32; 
-BLKB = 128 
00084 DYN AREA: SIZE: ae 
00104 TMP_AREA_CNT: 
“BLKB 4 
00108 TMP_AREA_ADDR: 
“BLKB 128 
00188 TMP_AREA. SIZE: on 
00208 BYTE COUNT: 
BLK 4 
90206 N_RFAS: <BLKB 4 
10 REC_ADJUST: 
BLKB 4 
-EXTRN CONVERTS FACILITY 
EXTRN CONVS_FAO_MAX, CONVS sh 


DBLK 
EXTRN ONS ~bancoel €, CONVS_BADSORT 
-EXTRN CONV$”CONFQU UAL. CONVS- CREATEDSTM 
“EXTRN CONV$_CREA_ERR CONVS- DELPRI 
-EXTRN CONVS$_DUP, CONVS_EXTN-ERR 
SEXTRN CONVS- CFATALEXC, TONVS"FILLIM 


“IDX_ ONVS_TLL_KEY 
EXTRN CONVS—ILL-VALU 


. CONVS_NOWILD 
SEXTRN CONVS"ORDER, CONVS OPENE XE 
-EXTRN CONVS_OPENIN CONVS OPENOUT 


CONVSSFA STALOAD 
CONV SRS "READE 
Scie get CREATE 


CONVSGL—F a 

CONVSGL RERGE COON SEC Pap 
CONVSGL~PAD_CHAR 

CONVSGL "SHARE, CONVSGL_SORT 
SON EEL TRUN 


CONVSGW"UDF “MRS 
CONVSGW-IN_REC_SIZ 
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VAX=11 CONVERT 18. 4 23:43:29 AX-11 Bliss-32 V4.0-74 
CONVERT 14-Se 382 93:42:53 CONV SREIEONURAYN O50 0% 
6 2 0 7 R2, CONV$AB_OUT_RAB+40 
06 A 28 D i Ret CONV$SAB_OUT RABS44 
A FF ag E CONV$AB_IN_FAB+30, 7$ 
A E 9 CONVSAB QUT _FARS 6 és 
O¢ 7 G3 £1 ie. COND AB-OUT FAB+30, 6$ 
68 0 7 FO #1, #7, #2, CONVSAB_FLAGS+2 
3 06 0009 CONVSAB_OUT_RAB+40 
64 oi cE 97 #1, RECTADJOST 
04 01 Ar i 0 ‘ CONVSAB_OUT_FAB+31, ry; 
68 02 7 A #2,_87, #2, CONVSAB_FLAGS+2 
E 7FFE op ; 8 A #30766, -(§P) 4 
= 0090 s : AC CONVSSGET_VM 
00006 CF 5 D 0082 RO, CONVSGL_STM_BUF 
00006 CF 04 008 CONVSGL_STM"REC LEN 
01 «As 64 88 00088 Ba, CONTSAB FLAGS+S 
sie Bape sea ers 
1B 67 €9 0c CONVSAB_OUT_FAB+30, 11$ 
gat EE ate seve tare. 1 
07 FF AG 2 €1 000CD We, CONVSAB_IN_FAB+30, 9$ 
68 0180 &F Ag 9002 38s, CONVSAB_FLAGS#2 
50 43 DO 90009 9$ MOVL  CONVSAB_IN_RAB+36, RECORD_BUFFER 
60 14 90 0000¢ MOVB #20, (RECORD BUFFER) 
65 06 Rept 10$: INCL NVS$AB_IN_RAB+36 
OE 67 02 a O0E1 11$: BBC #2, CONV$AB_OUT FAB+30, 12$ 
S11 Bes gree SRIVEALINAFabe3h 
50 04 A3 DO OOOEA MOVL CONVSAB_OUT RAB+44, RECORD_BUFFER 
60 8001 BF 80 OOOEE MOVW #36097, (RECORD BUF 
00006 CF 63 DO OOOFS 12$:  MOVL = CONVSAB_OUT_RAB?40, CONVSAB_EXC_RAB+40 
00006 CF 63 DO 000F8 MOVL § CONVSABTOUT"RAB+40, CONVSGL~RECORD PTR 
FC AS 000 6 CF 80 OOFD nov CONVSGuy MAX“REC. SIZ. CONVSAB_IN_RAB+32 
06 00006 CF 59 01 BLBC  CONVSGL_SORT, 13$ 
0006 0 0108 BSBW CONVSSSORT PRIMARY 
46 £9 10 BLBC STATUS, 
08 00006 CF 5 0111 13$:  BLBC  CONVSGL_FAST, 14$ 
00006 116 BSBW CONVSSFAST_LOAD 
52 39 p 119 MOVL RO, STATUS 
63 00006 CF p 116 14$:  MOVL CONVSGL_RECORD_PTR, CONVSAB_OUT_RAB+40 
0000v 123 15$: BSBW CONVSSGET RECORD 
5 DO 001 3 MOVL RO, STAT 
‘3 E9 001 BLBC status, & 
02 68 0 0 FD cHPZV #7, #2, CONVSAB_FLAGS+2, #2 
0000v cf f CALLS #0, CONVSSPUT_RECORD 
28 E8 001 BLBS STATUS, 15$ 
0000v CF f 1 168: CALLS #0, CONVSSEND_OF FILE 
0000v p 143 17$:  BSBW CONV FREE ERP On 
0001827A_ BF D1 00146 CMPL STATUS, #98938 
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4 
C IN VAX-11 CONVERT ibs -1984 43:29 AX-11 Bliss-32 v4.0-74 Page 17. ( 
v04-000 GET_RECORD 12-8 08-1he 93:42:53 EAN SRCICONTAAIN: B3oc7 ° (5) \ 
; $71 67 - | 
i 3 6 STATUS = _SET; ; 
3 ie ? } Loop while ok (we could fail from a fatal exception) i 
; 26 i WHILE .STATUS | : 
3 8 t BEGIN ! Main While Loop | ; 
: 80 1 § GET_REC: | : 
; 581 ae, BEGIN ! GET_REC Block | : 
5 8 379 4 ! If Input Format is UDF then we do some strange things ; 
; 585 581 4 if .CONVSAB_IN_FAB C FABSB_RFM J EQLU FABSC_UDF : 
; 5 ¢ 4 THEN $ 
: 44 2 ? BEGIN ! UDF Block i 
: 589 585 ! If the Byte Count from Last time is Positive then we must move : 
: 331 0387 : the Chracters Left Over to the Front of the Buffer : 
: % 05 8 iF .BYTE_COUNT GEQ .CONVSGW_UDF_MRS : 
s 39 589 THE H 
: age S200 ° BEGIN : 
3 $36 0398 ° H Set status here because we dont do a READ 3 
3 398 0594 : STATUS = CONVS_SUCCESS; 3 
3 oy 8296 ? : Cut down BYTE_COUNT the size of the last record ; 
3 602 0398 6 BYTE_COUNT = .BYTE_COUNT - .CONVSGW_UDF_MRS; ; 
; oo pone ° } Move the extra characters to the front of the buffer : 
: 606 é é CHSMOVE ( .BYTE_COUNT : 
; 60 0603 6 -CONVSGL_REC_BUF_PTR + .CONVSGW_UDF_MRS, : 
3; 608 0604 $ .CONVSGL-REC"BUF-PTR ) : 
; rst 4 oR? END; 3 
: 611 0607 ; ! Read some Blocks to Get the Record : 
; eis 09 3 WHILE -BYTE_COUNT LSS .CONVSGW_UDF_MRS : 
3 615 a 6 BEGIN ! READ While Loop | ; 
; £19 ig 6 ' Point the RAB buffer to the position just after the last : 
: 618 i ? character left over from Last time | ; 
; 6 9 16 6 CONVSAB_IN_RAB C RABSL_UBF } = .CONVSGL_REC_BUF_PTR + .BYTE_COUNT; | ; 
: 6 é P 18 é IF ( NOT ( STATUS = SREAD( RAB=CONVSAB_IN_RAB | : 
; 6 1 ERR=CONVSSRMSREAD_ERROR ) ) ) 
: 6gh 9 6 THEN | 
; 6 $ § 6 ! if Byte Count is > 0 then use that and give EOF 
3; 6 06. 6 ! next time 
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4 
ep-1984 23:43:29 AX-11 Bliss-32 V4.0-74 
Haat 93:42:63 CONV. SRCJCONVMAIN.B32; 


i} 
If .BYTE_COUNT GTR 0 
THEN 
BEGIN 
CONVSGW_IN_REC_SIZ = .BYTE_COUNT; 
BYTE COONT™= 0; 
TATOS = _SET; 
LEAVE GETTREC 


ELSE 
“RETURN .STATUS; 


BYTE_COUNT = .BYTE_COUNT + .CONVSAB_IN_RAB C RABSW_RSZ J; 
If we got a Short Record then we are also done 


if; CONVSAB_IN_RAB C RABSW_RSZ J] LSSU BLOCK_SIZE 


Check to see if the short part put us over the Limit 
if .BYTE_COUNT GTR .CONVSGW_UDF_MRS 


EXITLOOP 

ELS 
CONVSGW_IN_REC_SIZ = .BYTE_COUNT; 
BYTE COONT = 0; 


LEAVE GET_REC - 
END; 


END; ! READ While Loop 
Get Ready for Next Time 
CONVSGW_IN_REC_SIZ = .CONVSGW_UDF _MRS 
END ! UDF Block 
: For NON UDF Files do a Regular Get 


ELSE 
BEGIN ! Regular GET Block 
H If Reading a file by an RFA file first get the RFA 
IF .CONVSAB_FLAGS C CONVSV_RFA J 
THEN 
BEGIN 
If we ran out of RFAs get some more 
if .N_RFAS EQL 0 
THEN 


IF ( NOT ( STATUS = SREAD( RAB=CONVSAB_RFA_RAB 
nad ERR=CONVSSRMS_READ_ERROR ) ) ) 


VAK=-11 CONVERT 1$-sep-1 


IN 4 243: 9 AX-11 Bliss-32 V4.0-7 Pa ] 

-000 GET_RECORD 12-808=1 38 $342 :01 CONV /SRE (3ton SNVAAIN “B32: - 3} 
5 RETURN .STATUS 
ELSE 
? BEGIN 
! RFAS are six bytes long so we can tell how 
34 be many there are 
69 6 NRFAS = CONVSAB_RFA,RAB C RABSW_RSZ ) / 6; 
69 Dé RFA_IDX = 
694 y. | 
695 D6 END; | 
698 06 
244 ' } Get an RFA 
1 | 

$% ' CONVSAB_ IN_RAB C RABSL_RFAO J = .RFAO C .RFA_IDX x 3 
Ais CONVSAB_IN_RAB C RABSW_RFAG J = .RFAG eRFA_IDX J; 
70 RFALIDK = .REAIDX + 1; | 
70 N_RFAS = NL RFAS - 
704 
Ae END; 
70 : Finally get a record! If the i/o was complete under 
re } control-y just ignore it and try again 
710 do | 


: rms_read_error will return if the error was end of file 


( IF ( NOT ( STATUS = $GET( RAB = CONVSAB_I 
cat ERR = CONVSSRAS NREAD. “ERROR ) ) ) 


RETURN .STATUS ) 
WHILE .STATUS EQLU RMS$_CONTROLY; 
Set the input record size 
CONVSGW_IN_REC_SIZ = .CONVSAB_IN_RAB C RABSW_RSZ } 
END; ! Regular GET Block 
END; ! GET_REC Block 
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: We have a record so count it 
CONVSGL_RECORD_COUNT = .CONVSGL_RECORD_COUNT + 1; | 


! If we need to do FIN carriage control mappings, 
then go for it... 


if; CONVSAB_FLAGS C CONVSV_MAPFIN J NEQ 0 
IF NOT ( STATUS = CONVSSMAP_FTN_CCL () ) 


RETURN .STATUS; | 
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4 
C IN VAX=-11 CONVERT 18-se =1984 23:43:29 AX-11 Bliss-32 V4.0-74 C 
v04-000 GET_RECORD aaa 1 93:42: 1 CUNY SRCJEONUAAYN 6324 Vv 
3; 74 7 $ 
: et? 73 } Make adjustments on the record size if necessary : 
; 049 i CONVSGW_IN_REC_SIZ = .CONVSGW_IN_REC_SIZ + .REC_ADJUST; ; 
> 76 74 
; 74 744 ! Check fo exception conditions ie. is the record to long to short ect... : 
; 74 745 ! The exception record block has a series of test to check the valididy F 
: 750 yg ! of the record if an exception record is found exit of the block will 3 
; 751 74 ! repeat the process of getting a record with out exiting. If all checks : 
g ; te ; suceed then we drop through an exit : 
: 754 750 3 EXC_REC: 
3 f 5 1 2 BEGIN ! EXC_REC Block : 
; se8 7 ; a ! If record size is ropet ive then the input record : 
: £38 Tee ? is to short to fill the VFC portion of the output file : 
: 760 736 4 if .CONVSGW_IN_REC_SIZ LSS 0 : 
2 re Mei ae ci : 
: 76 0759 CONVSGW_IN_REC SIZ = .CONVSGW JNOREC SIZ - .REC_ADJUST: : 
: 764 760 STATUS = CONVSSEXCEPTION( CONT _VFC J; $ 
: 765 0761 LEAVE EXC_REC ; 
me tee : 
; ree eee ? } If Output File MRS is 0 then we check for index key size if necc. : 
; 770 O766 4 if .CONVSGW_OUT_MRS EQL 0 ; 
: 77 $544 4 CONVSGW_OUT_REC_SIZ = .CONVSGW_IN_REC_SIZ ; 
| BBS ae 7 
: 775 $794 4 ! If the Record is Longer then MRS Check for Truncate or ; 
He ORS heaton 7 
: 778 0774 4 if -CONVSGW_IN_REC_SIZ GTR .CONVS$GW_OUT_MRS F 
fe MS ~ | 
; re oe $ : If Truncate then set the Record’s size to MRS ; 
; 183 719 4 if g,CONVSGL TRUNCATE 3 
> 785 781 4 CONVSGW_OUT_REC_SIZ = .CONVSGW_OUT_MRS ; 
3 7 ; 4 LSE 3 
3; 78 7 BEGIN 3 
3 88 7 STATUS = CONVSSEXCEPTION( CONVS_RTL ); : 
; 789 . 5 LEAVE EXC_REC : 
; 791 77 4 ELSE : 
: a A ? : If the file is fixed an the record is short... : 
; 795 791 4 if ( .CONVSAB_OUT FAB C FABSB_RFM ) EQL FABSC_FIX ) AND 
3 re a4 5 ( .CONVSGW_IR_REC_SIZ LSS .CONVSGW_OUT_MRS ) 
; 79 795 4 THEN 
; 798 794 4 


X-11_ CONVERT besep-1986 23:43:29 YAX=11_ BLiss-32 v4.0-74 
T_RECORD a-$ep-1986 f2itero1 — ECOwveSRCJCONVAAIN 832; 


If PAD then pad the short record 

if .CONVSGL_PAD 

THEN 

OES ( .CONVSGL_PAD_CHAR, 
ONVSGW_OUT_MRS = .CONVSGW 


N_REC_ 
. CONVSGL-REC_BUF PTR + VEONOSGO. INE IN, e* siz ); 
V$GW_OUT_REC_SIZ = [CONVSGW_OUT_MRS 


Tus = COmySSEKCEPT 1OMC CONVS_RTS ); 
cAvE EXC_REC 
Nata a So = .CONVSGW_IN_REC_SIZ; 
: If we made it this far then we have an ok record 
RETURN .STATUS 
END; ! EXC_REC Block 
END; ! Main While loop 
RETURN .STATUS 
END; 


ooooo OOoooooooooooooo < 
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om 


-PSECT _CONVSOWN,NOEXE, PIC,2 
00214 RFA_IDX:.BLKB 4 
-EXTRN SYSSREAD, SYSSGET 
-PSECT _CONVSCODE,NOWRT, SHR, PIC,2 


3FC ©68F ©6©BB 00000 CONVSSGET RECORD: : 
‘ “ POSHR #*M<R2,R3,R4,R5,R6,R7,RB,RI> 


BON GL_REC_BUF _PTR 


59 000G CF D0 00004 ROVE CONVSGL_RFA_BUFFER. RO 
38 0006 (CF D 9 MOVL EONVSGL RE REA ~BUFFER: RB 
1 0 MOVL 
03 7 11 1$: BLBS erATas 
01A0 14 g3: BRW 1 
00006 CF 17 3$: TSTB CONVSAB_IN_FAB+31 
; 1 1B BEQL 
00 : 1 BRW 9$ 
50 90006 CF ¢ 4$ MOVZWL CONVSGu UDF ARS, RO 
0 00' CF b CMPL _COONT,~ 
13 19 A BLSS ye 
m: 1 a a 
00006 oF SO ODGDF LO 0000' CF § 0 moves eyfe OORT @CONVSGL_REC_BUF_PTRCRO), 


4 
C IN VAX=11 CONVERT 18-5 =1984 23:43:29 AX-11 Bliss-32 V4.0-7 Page ( 
Gon S00 GET RECORD Fk bets a et} Mt Ee tt a 85 \ 
0000" CF 00006 CF 10 90 FE s08%h rt) cMPzV 40. #16, CONVSGW_UDF_MRS, BYTE_COUNT : 0609 
00006 CF 00006 CF 0000" CF ¢ 4A ADDL3 BYTE COUNT, afonyscr. REC_BUF _PTR, : 0616! : 
99006 CF 3 4 PUSHAB CONV SEARS “READ. ERROR : 0619 | : 
G CE OF 8 PUSHAB CONVS. : ; 
000000006 99 F i CALLS #2, oirehean : : 
ig e eg fore Le sth na 
50 0000' CF p OV a Ue sunt. RO + 0625 : 
00006 CF 50 80 MOV CONVSGU_ IN_REC_S1Z : 06 8 ; 
0000" CF D4 0007 CLRL ave : 06 ; 
57 1 0 7 MOVL sta AY US + 0630 : 
21 7¢ BRB as" + 0631 ; 
50 00006 cf 3¢ 7E 6$: MOVZWL CONVSAB IN IN_RAB+34, RO + 0636 F 
0000° CF 0 ¢ ADDL2 Byte UNT : : 
0200 &F 00006 CF 81 00 : CHEW ONVSAB_ IN. RAB+34, #512 + 0640 ; 
0000" CF 00006 CF 10 06 FD 0091 CMBZV #0. #16, CONVSGW_UDF_MRS, BYTE_COUNT + 0645 ; 
00006 CF 000° CF 80 009 MOVW BYTE -COUNT, CONVSGW_IN_REC_S1Z + 0650 : 
000° cr D4 000A CLRL § BYTE~COUN : 0651 F 
D 11 OOOA BRB 12$ ~ : 065 ; 
00006 CF 00006 CF 80 O00A9 7$: MOVW  CONVSGW_UDF_MRS, CONVSGW_IN_REC_SIZ + 065 ; 
4 11 00080 8$: BRB 12$ ; : 
49 00006 CF 04 €1 9082 $: BBC #4, CONVSAB_FLAGS+2, 11$ + 0670 : 
0000' CF 05 000B TSTL N_RFAS : 067 ; 
24 12 0008C NEG 108 : : 
00006 CF 9F 000B PUSHAB CONVSSRMS_READ_ERROR + 0679 : 
00006 CF 9F 000C PUSHAB CONV$AB_RFA_RAS : : 
000000006 99 FB 900¢ CALLS #2, SYSSREAD ; ; 
DO 000CD VL RO. S aTY : ; 
8 6 5 9900 LBC sTATus ; ; 
0 00006 CF : 0D MOVZWL CONV AS _RFA RAB+34, RO ; 0688 : 
0000" CF 0 06 C7? 00008 DIVL3 #6, RO, N_RFAS ; : 
0000° cr D4 000D CLRL REA_1Dx : 0689 : 
50 0000" CF 6 5 OOOE2 10$: MULL3 #6, RFA_IDX, RO : 0695 3 
6049 9F O00E PUSHAB (RO)CROJ ; 3 
00006 CF 9 0 EB MOVL  a@(SP)+, CONVSAB_IN_RAB+16 : : 
04 A048 OF OOF PUSHAB 4(RO)CRE + 0696 3 
00006 CF 9E BO 000F4 MOVW a(SP)+, CONVSAB_IN_RAB+20 : ; 
000° CF 6 OOF9 INCL  RFA_IDK : 0698 : 
00 ' CF FD DECL oN RFAS : 0699 ‘ 
G6 CF 9F 00101 11$:  PUSHAB CONVSSRMS READ_ERROR : 0711 : 
0006 CF 9F 00105 PUSHAB CONV$AB_IR_ RAB F ; 
000000006 99 FB 001 CALLS #2, SYSSGET : F 
dD 11 MOVL RO, STATU 3 j 
5 E9 0011 BLBC STATUS, 1 ss : ; 
00010611 &F 3 ; 116 cRPL STATUS, #67089 : 0715 ‘ 
00006 CF 0006 CF BO OO11F MOVW § CONVSAB_IN_RAB+34, CONVSGW_IN_REC_SIZ : 0719 i 
00 G CF 06 00126 128: INCL  CONVSGLRECORD. COUNT ; 138 : 
0180 8F 00G ¢F é A BIT VSAB~ FrAgee 2: wiih : 07 : 
0000v gf FB 1 CALLS #0, CONVSSMAP_FTN_CCL : 0735 : 
7 D0 001 MOVL * STATUS ; i 


coevenain VAX-11 pana 
-000 GET _RECOR 


0000G CF 


50 
50 0000G CF 


; Routine Size: 447 bytes, 


Routine Base: 


ef oan 
no S8E5. § 


oc Mom 


3 0006 


7 

F 

F 

0 

F 

F 

8 

F 

F 

A 

56 be 

28 G F 

aon EE § 

01 00006 ' 

56 ¢ 

16 0000G CF 
56 
6E 

OO00GDF4 

aang - 

000000006 8F 

CF 1 

57 0 

cr FESF 

ee 

8F 


O3FC 


nx 
im) 


DOWWOTO=9 WOM—90—0-0Mm—0 SUI Oo > Sm 
an 
SATAN SSS IAS 4 


MPoo—-o@ao— 
MPSNIVANON "POH 


Dwwawrrrrovo 


So 


_CONVSCODE + 0156 


paloge f2ite:dt — ECOwv.sRCJCONVAAIN: 83271 


REC_ADJUST, 20, meee, IN_REC_SIZ 
scORvS. VFC 


ONV$GW_IN_REC_SIZ, R2 
oe “out Pans R6 


R6 
coavest TRUNCATE, 17$ 
NVS_RTL 


SONVSAB_OUT_FAB+31, ra 
R R6 
ae _PAD, 18$ 
SP), CONVSGL_PAD ast HAR, RO, - 
SCONVSGL REC_BUF_PTRCR 
RG CONVSGW_OuUT PREC S12 


#CONVS 
#1, LORVESEXCEPTION 
STATUS 


Re, wa? ee OUT_REC_SIZ 
LUT ga Rs R4,R5,R6,R7,RB,RI> 


a a 


; Allocate the memory and quit if errors 
if NOT LIBSGET_VM( BYTES,POINTER ) 
SIGNAL_STOP( CONVS_INSVIRMEM ); 
: Keep track of allocated memory so we can give it back latter 
DYN_AREA_SIZE { .DYN_AREA_CNT j = BYTES; 
DYN-AREA-ADDR C .DYN“AREA-CNT J = .POINTER; 
DYN-AREA_CNT = .DYN_AREA_CNT + 1; 


: Zero the allocated space 


2.00 09 09 00 Co 
> 


SWONOULSWN—O 


C AIN VAX=-11 CONVERT 18-5 =1984 23:43:29 AX-11 Bliss-32 V4.0-74 P 4 ( 
a GET_VA 14-$ =1382 93:42:83 CUNY SRLICONVRALN D5 o01 — (3 \ 
5 ¢ 1 ZSBTTL ‘GET VM’ i 
; ? é } GLOBAL ROUTINE CONVSSGET_VM ( BYTES ) : CLSGET_VM = ; 
; 1} 
: g H ; ! } Functional Description: | 
: 5 1 / Allocates virtual memory and records it so that it can : 
et be returned by CONVSSFREE. VM 
3 8 8 é } Calling Sequence: 
: 840 5 1! CONVSSGET_VM( ) i 
Bal g ii en ee 
: § 4 : : Input Parameters: : 
; bcs $i : ba oe a Number of bytes to allocate 
: ! Implic nputs: i 
: 984 Baeg 1! 4 none i 
3 8 08435 1! i 
: 9 0844 1 ! Output Parameters: | 
; 850 0845 1! none : 
3; 851 Berg 1! ; 
3 $26 0847 1 ! Implicit Outputs: | 
: 5 0848 1! none | 
3 See 0849 1! | 
3; 855 0850 1 ! Routine Value: : 
: $28 0851 1 3 
: 838 0558 7 nto RO - 7 PO of start of memory allocated 
: 860 oe 4. ee ee : 
; 861 0828 1! LIBSGET_VM : 
3 ¢ 0857 1! i 
3 +24 1! Side Effects: 3 
3 859 1! none ; 
3 pace 1! 3 
$ 861 1 !-- ; 
3 Bag 1 i 
; 086 BEGIN : 
3 0864 ; 
: Oaee LOCAL POINTER; ‘ 
} 
| 


a 9 


; | 
¢ IN VAX=11 CONVERT 1S-sep-1984 23:43:29 VAXe11 Bliss-32 v4.0-74 6 
you b00 GET _VM arse} 882 $3:92 553 30 age 23 | 


CONV. SRCJCONVMAIN.B32; 
; : CHSFILL( 0,.BYTES,.POINTER ); 
4 8 RETURN .POINTER 
: 5 END; 
3E BB 00000 CONVSSGET_VM:: 
POSHR #°M<R1,R2,R3,R4,R5> 3; 0825 
SE 4 C2 0000 UBL2 #4, SP ; 
20 3 14 $00 pUSHAB BYTES — 
000000006 90 ; F aor CALLS #2, LIBSGET_VM : 
000000006 BF DD 00014 PUSHL #CONVS$_INSVIRMEM + 0871 
000000006 00 1 FB OO1A CALLS #1, LIBS$STOP ; 
50 0000" CF DO 00021 1$: VL DYN_AREA_CNT, RO + 0875 
0000'cF40 1C AE DO 00026 MOVL BYTES, DYN AREA SIZECRO) : 
0000'CF40 6E DO 000 MOVL POINTER, DYN_AREA_ADDRCRO] ; 0876 
0000° cr D6 00 INCL. DYN_AREA_C : 087 
10 AE 00 6E a 00 C 0037 MOVCS #0,°(SP)> #0, BYTES, @POINTER > 0881 
50 E pO G003r MOVL POINTER, RO + 0883 
E BA 00042 POPR #*M<R1,R2,R3,R4,R5> + 0885 
05 00044 RSB ; 


; Routine Size: 69 bytes, Routine Base: _CONVSCODE + 0315 


4 
a VEREISEE GENET HRSA Attala rae 


verdad 


a 


SSBTTL ‘FREE VM’ 
co ROUTINE CONVSSFREE_VM : CLSFREE_VM NOVALUE = 


oo 
Wr 


i Functional Description: 

Returns virtual memory allocated by CONVSSGET_VM 
| catting Sequence: 

CONVSSFREE_VM() 
| Input hes 


{Implicit enputes 


sssgesesssunnnnaae 


OOoooooo 
ooo 
OoOoo°oo 
UPWN—O 


; 04 | Output | haat 
1 

1 309 1 wii — uts: 
i 908 ‘as 

1 0909 

; i Routine  vauee 

1 

1 i Routines called: 


LIBSFREE_VM 
i Side estoctes 


st a 4 2 


MEW =O OOVNOUS WN “OC OONOUS WN Oo 


BNAVEWN “OOONOUS WMO 


BEGIN 
: Deallocate memory 
WHILE ( .DYN_AREA_CNT NEQ 0 ) 


SS 


DODODDODOODODOODODOODDODODODODONDO0O 


Suen 


SISSSSSCSCBOBOOBOOOOOOSOSOS 


9 AREA_ CNT = .DYN_AREA_CNT = 1; 

9 DIBSFREE™ VAC DYN-AREA_SIZE { .DYN_AREA_CNT }: 
937 DYN-AREA_ADDR C .DYN_AREA_CNT J) ) 
9 END; 

939 

940 RETURN 

941 

942 END; 


0000" CF D5 00000 CONVSSFREE_VvM:: 


CONV. SRCJCONVMAIN.B32; 
TSTL DYN_AREA_CNT 


5 
cerama™ pagetcoven IERIE GER LMI 


1C 13 00004 BEQL «=s1$ F 
0000" CF i G000¢ DECL § DYN_AREA ENT : 
50 0000' CF DO OOO0A MOVL DYN PAREAT CNT RO ; 
9000 CF 4 DF OO00F PUSHAL DYN-AREA-ADDRCRO : 
000'CF40 DF 0014 PUSHAL DYN “AREAS SIZE RO ; 
000000006 00 02 FB 0001 CALLS vedeSe vM : 
DE 11 0 2 BRB toi FREES ein ; 
05 1$ RSB : 
; Routine Size: 35 bytes, Routine Base: _CONVSCODE + 035A 
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CONV. SRCJCONVMAIN.B32 


ZSBTTL _'GET_TEMP_vM' 
GLOBAL ROUTINE CONVSSGET_TEMP_VM ( BYTES ) : CLSGET_TEMP_VM = 


' 
Functional Description: 


Allocates virtual memory and records it so that it can 
be returned by CONVSSFREE_TEMP_VM 


Calling Sequence: 

CONVSSGET_TEMP_VM( bytes ) 
Input Parameters: 

bytes = Number of bytes to allocate 
Implicit Inputs: 

none 


Output Parameters: 
none 

Implicit Outputs: 
none 


i 
t 
i 
i 
i 
i 
{ 
i 
i 
i 
i 
i 
i 
i 
4 
i 
' 
! 
‘ 
i 
; Routine Value: 

: RO - Address of start of memory allocated 
: Routines called: 

LIBSGET_VM 

: Side Effects: 

. none 

leo 


BEGIN 
LOCAL POINTER; 
: Allocate the memory and quit if errors 
IF NOT LIBSGET_VM( BYTES,POINTER ) 
SIGNAL_STOP( CONVS_INSVIRMEM ); 
: Keep track of allocated memory so we can give it back latter 
TMP_AREA_SIZE [ .TMP_AREA_CNT ) = .BYTES; 
TMP“AREA-ADDR C .TMP"AREA-CNT ) = .POINTER; 
TMP~AREA_CNT = .TMP_AREA_CNT + 1; 
: Zero the allocated space 


x EAH GEG PMA 
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5 
ee ciate NEREHBE HB: 


$9 Ax-11 
14-Sep-1 1 


CONV.S 


: 1001 4 CHSFILL( 0,.BYTES,.POINTER ); 
: 1006 995 
; i RETURN .POINTER 
: 1005 998 END; 
3E BB 00000 CONVSS$GET TEMP. vM 
POSH #-MCRI »R2,R3,R4,R5> 
SE 4 C2 90002 SUBLS #4, SP 
E DD 0000 PUSHL SP 
20 AE OF 90007 PUSHAB BYTES 
000000006 00 05 FB O00, CALLS 2, IBSGET_VM 
000000006 ar DD doors PUSHL #CONVS_INSVIRMEM 
omn000s $0 0000" CF OO Gout 18 ROVE” THE. AREA CNT 
0000°CF40 1C AE 00 00026 MOVL BYTES tab Wien” SIZECROJ 
QO00'CF40 an. SE BO 00080 MOV. —POIN nie TAP_AREA_ADDRCROJ 
1c AE 00 6E a 00 2¢ 00037 MOVCS #0,7(SP)> #0, BYTES, @POINTER 
50 BE DO boos MOVL POINTER, RO 
E BA 00042 POPR #*M<R1,R2,R3,R4,R5> 
05 00044 RSB 
; Routine Size: 69 bytes, Routine Base: _CONVSCODE + 037D 


Pie. HR Ee ect oe 
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NIU OIPYVETVENINONUION ON 
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DS 00000 CONVSSFREE_TEMP_VM:: 
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VAX=11_ CONVERT 
FREE_TEMP_VM 


50 


000000006 00 


3; Routine Size: 35 bytes, Routine Base: _CONVSCODE 


o-"oo0cT0— 


C 


9 
1 
MP 
$ 


ONV 


AX-11 Bliss-32 V4.0-74 Pp 1 
CUNY SRCIEONUAAYN O30¢4 aoe 3} 
AREA_CNT : 1039 
AREA_CNT + 1042 
AREA_CNT, RO + 1044 

AREA_A DREROJ : 

AREA” SIZECR + 1043 
IBSFREE_VM + 1044 
$FREE_TEMP_vM : 

+ 1049 


te Y 


: 
CONVSMAIN VAX=11 CONVERT 18-Sep-1986 23:43:29 YAX=11_Bliss-3 
vo0"000 XCEPTION Ve-Sep-198e 12:14:01 ECONv sRCICON 
BSBTTL | EXCEPTION’ 


x 
LOBAL ROUTINE CONVSSEXCEPTION ( CODE : BLOCK C 4,BYTE J] ) = 


w 


Functional Description: 


Logs an exception record and if an exception file was specified 
writes the record into it 


Calling Sequence: 
CONVSSEXCEPTION( code ) 
Input Parameters: 


uw 


NO 


NOUS WN O 
UN 


7 
f 
. 5 code - Convert exception code 
44 Implicit Inputs: 
7 none 
$79 0 
7 
f 
4 Implicit Outputs: 
a none 
6 Routine Value: 
7 


CONV$_SUCCESS or 
CONVS_FATALEXC - if fatal exception 


Routines Calied: 
CONVSSRMS_READ_ERROR 
SPUTMSG 


PSBISSSSSSTERES 
SOoOooooooocoooooo 
So 


0 Co C9 C9 CO CD 
MEWN oO 


3 


Side Effects: 
none 


oO 
coco 
Oce 


ae ee ee re re le i ie ee el eee ee ee ee ee eel“) ) 
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1 091 

: 1 § BEGIN 

108 Own 

Hh 's4 5 MESSAGE_VECTOR =: VECTOR C 2,LONG ) INITIAL ( 1,0 ); 
198 ! If this is arms error the see if it is one of the recoverable ones | 
10 94 ! If it is not then call rms_read_error with the output rab which 
138 : : will contain the error codé in fhe sts field 
110 101 if .CODE C STS$V_FAC_NO J EQLU 1 ! RMS facility code is 1 
111 1 ¢ THEN 
A ; SELECTONEU .CODE OF 
11% 105 C RMS$_DUP ) : CODE = CONVS_DUP; 


5 
1Besen-t9ee 25:45:29 yancrt Bt 


C RMS$_SEQ J] : CODE = CONVS$_SEQ; 
C RMSS_KEY J : CODE = CONVS_KEY; 
C RMS$_RSZ ] : CODE = CONVS$_RSZ; 
C OTHERWISE J: CONVSSRMS_READ_ERROR ( CONVSAB_OUT_RAB ); 
TES; 
If we are to signal errors then output an exception message 
Feagp OMS FLAS C CONVSV_SIGNAL J 
BEGIN 
MESSAGE_VECTOR C 1] = .CODE; 
SPUTMSG( MSGVEC=MESSAGE_VECTOR ) 


UENO OOBNAVULS WN "OOOO 


iF .CONVSGL_EXC 
THEN 
BEGIN 
Stuff the size of the record which caused the exception 
CONVSAB_EXC_RAB C RABSW_RSZ J] = .CONVSGW_IN_REC_SIZ; 
: Write the exception record 
SPUT ( RAB=CONVSAB_EXC_RAB ) 
END; 
Count the exception 
CONVSGL_EXCEPT_COUNT = .CONVSGL_EXCEPT_COUNT + 1; 


! If /EXIT was specified exit with fatal excpetion 
: else return normal 


if . CONVSGL_EXIT 

RETURN CONVS_FATALEXC 
on RETURN CONVS_SUCCESS; 
END; 


OB NONE WIN O DONOUS WOO 
eee ee me ec cee ee me ce ce ce ce ec ce ee ce ec ee ee ee a ee ee ee ed ed ed ed od od = mc 


ee ed a a dd a sd = “a 2 a 4 2 4 2 2 a a 
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a ee ee at ee thes a at tt yet = 


4 
4 
END; 
: If there is an exception file put the record into it 
4 


DWNOAUES WN O OONOUS WN OOM 


~PSECT _CONVSOWN,NOEXE, PIC,2 


01 


3; Routine Size: 
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Exc, 7$ 
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CONVSGL DEXIT 
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: Routine Size: 


5 
yen 15-sen-t9Re 25:45:29 


EGIN 
Bois ONNECT( RAB=CONVSAB_RFA_RAB ); 
CLO =CONVSAB_RFA_FAB J; 
=CONVSAB-RFA-FAB_); 
GS C CONVSV_RFA J = _CLEAR 


: Calculate Totals 
CONVSGL_VALID_COUNT = .CONVSGL_RECORD_COUNT - 
RETURN 


END; 
54 000000006 ae 0002 
53 000000006 00 9E 000 
52 0000G CF 9E 00010 
00006 ff oF Bn0i8 
63 1 FB Bate 
OA 62 £9 0001C 
00006 CF 9F OOO0IF 
64 01 FB 00023 
6 8) 8A b6 6 
6 4 EO 00029 1$: 
6 03 4 0020 
00006 fr F 00051 2$: 
63 1 FB 8S 
00006 CF 9F 00 
64 01 FB Opec 
00006 ff oF F 
000000006 00 1 FB 00043 
62 10 8A Q004A 
0000G CF 0000G CF C3 0004D 3$: 
04 00057 


Routine Base: _CONVSCODE + 048E 


AX-11 Bliss-32 V4.0-74 
CONV.SRCJCONVMAIN.B32; 


. CONVSGL_EXCEPT_COUNT; 


-EXTRN SYSSDISCONNECT, SYSSCLOSE 
“EXTRN SYSSERASE 
.ENTRY CONVSSEND_OF FILE, Save R2,R3,R4 
VAB  SYSS$CLOSE; 
MOVAB SYSSDISCONNECT, R3 
VAB_ CONVSAB_FLAGS+2, R2 
PUSHAB CONVSAB-IN_RAB 
CALLS #1, SYSSDISCONNECT 
LBC  CONVSAB_FLAGS+2, 1 
PUSHAB CONVSAB-IN_FAB 
CALLS #1, SYSSCLOSE 
BICB 1, CONVSAB_FLA 
§ #4. CONVSAB-FLAGS*+2, 2$ 
C #3. CONVSAB-FLAGS+2, 3S 
PUSHAB CONVSAB RFA 
CALLS #1, $YSSDISCONNECT 
PUSHAB CONVSAB_RFA FAB 
CALLS #1, $ySSCLOSE 
PUSHAB CONVSAB_RFA_FAB 
CALLS #1, SYSSERASE 
BICB2 #16, CONVSAB FLAGS+2 
SUBL3 CONVSGL_EXCEPT_COUNT, - 
ai CONVS$GL-RECORD-COUNT. CONVSGL_VALID_COUNT 
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11. CONVERT 
MAP _FTN_CCL 


PRB PDER DDR BIRD PTR at eh et ek dB Be 8 8 ed a a a dd 8 8 tt bs ts 


Heseo-t96s 95:45:39 


AXx-11 Oh fee V4.0-74 
CONV. SRCICONVMAIN.B32; 


ZSBTTL ‘MAP_FTN CCL’ 

ROUTINE CONVSSMAP_FTN_CCL = 

Functional Description: 
Does conversion from/to FIN files based on the CONVSV_MAPFTN bits. 
Output for FIN <--> STM files is done from this routine, since 
we need to know 1) what the old record ended with, and 2) what 
the new record begins with before we can SPUT a record. 

Calling Sequence: 
CONVSSMAP_FTN_CCL() 

Input Parameters: 
None. 

Implicit Inputs: 


CONVSAB_FLAGS 
CONVSAB_IN_RAB 
CON R 


CONVSGL—STM_BUF 
CONVSGL-STM_REC_LEN 


Output Parameters: 
none 
Implicit Outputs: 
none 
Routine Value: 
Success, unless PUT_RECORD complains 
Routines Called: 
PUT_RECORD 
Side Effects: 


The STM buffer may be SPUT to the output file. 
input record is moved to the STM buffer. 


The new 


BEG! 
LOCAL 
STATUS; 
BIND 
CCLBYTELIN = .CONVSAB_IN RAB F RABSL_UBF } : VECTOR C.BYTEI, 
CLBYTE-OUT = .CONVSAB-OUT RAB [ RABSL-RBF ) : BYTE 
PRINTCCL_IN = .CONVSAB"IN_RAB C RABSL-RHB } : VECTOR C,WORD), 


iesseoage GAE:G? YMRS: alee 


es 
2 
r+ 
> 
=e 
Ta 
ae 
lao 
ae 
<= 
m 
=D 
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=F TN, 14-Sep-1 CONV.SR 
1383 TRA SSP ra taMOBNDSTAPaka™ Phe Jaf SM hecron corte 
3 See what the intention is for conversion. Low bit set means 
i 1598 either FIN ==> PRN or PRN ==> FIN 
\ } 38 iF ;,CONVSAB_ FLAGS C CONVSV_MAPFIN J 
1 09 129 BEGIN 
1310 1 39 IF .CONVSAB_FLAGS C CONVSV_MAPFIN J EQL CONVSC_FTNPRN 
He 1B? ee 
: ; ¢ ; Convert from FORTRAN to printer format 
' 13 ; 0% SELECTONE .CCLBYTE_INCO] OF SET 
1 i$ 1 Be Czc°w") ss PRINTCCL_OUT = %x*8D8C'; 
1 i$ i o8 Czc'o"): PRINTCCL_OUT = %X°8D02'; 
i : i 1 Cac*e*) ol: PRINTCCL_OUT = %x'8D00'; 
1 g i 12 Cac*s*) PRINTCCL_OUT = %x°0001'; 
i $ i if Czx'00') : PRINTCCL_OUT = %X'0000'; 
? 16 COTHERWISE) : PRINTCCL_OUT = %X°8D01'°; 
WR - 
1331 1320 ELSE 
i 35 i ; Convert from printer format to FORTRAN 
s 4 SELECTONE .PRINTCCL_INCO] OF SET 
1 : $ C2x"8p8C*) : CCLBYTE_OUT = %C'1'; 
1 $ 1 $ C%x°8D02") =: CCLBYTE_OUT = %C'0'; 
} : 0 CZx°8p00')] : CCLBYTE_OUT = ZC'+'; 
§ ; C2x°0001') :  CCLBYTE_OUT = %C'S'; 
1345 1 CZx"0000°] : CCLBYTE_OUT = %x‘00'; 
} ; ! 3 COTHERWISE] : CCLBYTE_OUT = %C" °; 
} 3 } TES; 
1351 1340 ae 
' 38 ! ; ELSE, 
1354 1 ! Convert from FIN to STM -- visual equivalence... 
1356 1343 BEGIN 


5 
VAX=11 CONVERT ise =1984 23:43:29 AX-11 Bliss-32 V4.0-74 
MAP_FTN_CCL 12-Sep-1 4 $3: 42553 AANY SBLICONVRAN O3004 
LOCAL 
STREAM BUFFER_PTR : REF VECTOR C.BYTE), 
NEW_RECORD_POINTER, 
NEW-REC_S1Z; 


STREAM_BUFFER_PTR = .CONVSGL_STM_BUF + . CONVSGL_STM_REC_LEN; 
SELECTONE .CCLBYTE_IN CO] OF SET 
Cac’): ¢ A paateies icine C CONVSV_LAST_CR J 


IN 
STREAM_BUFFER_PTR CO] = %Xx'OD': 
STREAM-BUFFER-PTR = .STREAM BUFFER_PTR + 1; 
CONVSGC_STM_REC_LEN = .CONVSGL_STM-REC_LEN + 1; 


WN OOOSNAOUNES WH" OODONO 


ND 
put = (LEAR; 
NEW_RECORD POINTER = INPUT BUF FER_PTR F 
INPOT_BUFFER_PTR LO] = %X*0C’; 
REC_ABJUST ="0; 


Se 


& 


CONVSAB_FLAGS C CONVSV_LAST_CR J] = _SET; ); 
Czc*+*) : ¢ fF , CONSID FLAGS C CONVSV_LAST_CR J 


68 CONVSAB_FLAGS C CONVSV_LAST_CR J = SET; ); 
81 0 Czc'O"] =: ( IF .CONVSAB_FLAGS C CONVSV_LAST_CR J 
é 4 THEN 
43 PUT = SET; 
5 74 NEW RECORD POINTER = INPUT_BUFFER_PTR ; 
86 75 INPOT BUFFER_PTR CO) = %X'OA'; 
7 376 REC_ABJUST ="0; 
389 2 ELSE’ 
90 379 BEGIN 
91 80 UT = CLEAR; 
9 381 NEW RECORD POINTER = INPUT BUFFER_PTR = 1; 
39 382 INPOT_BUFFER_PTR c-13 = Bx 0At 
94 & INPUT-BUFFER-PTR CO} = %X°OA'; 
95 84 REC_ADJUST ="1; 
# ; 
8 


WWW 


NV28S 


BEGIN 

STREAM_BUFFER_PTR CO) = %X'0D'; 
STREAM-BUFFER-PTR = .STREAM BUFFER_PTR + 1; 
CONVSGC_STM_REC_LEN = .CONVSGL_STM_REC_LEN ¢ 1; 


PuT = CLEAR; 
NEW_RECORD_POINTER = INPUT_BUFFER_PTR + 1; 
REC“ADJUST"= = 1; 

CONVSAB_FLAGS C CONVSV_LAST_CR J = _SET; ); 


Czc°s*) =: ¢ fF COMVEAD FLAGS C CONVSV_LAST_CR J 
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CONV SRCJEONVMAIN. 83271 _ 
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IN 
NEW_RECORD_POINTER = INPUT_BUFFER_PTR + 1; 
REC_ADJUST = =-1; 


BEGIN 

NEW RECORD POINTER = INPUT_BUFFER_PTR ; 
INPOT BUFFER_PTR CO] = %x'OA’; 
REC_ABJUST =°0; 


END; 

CONVSAB_FLAGS C CONVSV_LAST_CR J = _CLEAR ); 

Cxx'00') : ( PUT = CLEAR; 
IF, CORVSAB_FLAGS C CONVS$V_LAST_CR 


BEGIN 
STREAM_BUFFER_PTR CO] = %X'OD'; 
STREAM-BUFFER-PTR = .STREAM BUFFER_PTR + 1; 
CONVSGC_STM_REC_LEN = .CONVSGL_STM_REC_LEN + 1; 
NEW_RECORD_POINTER = INPUT_BUFFER_PTR + 1; 
= 15 
CONVSAB_FLAGS C CONV$V_LAST_CR ) = _CLEAR ); 
COTHERWISE] : (¢ If NOT .CONVSAB_FLAGS C CONVSV_LAST_CR J 


BEGIN 
PUT = ye 
iF conv AB_FLAGS C CONVSV_FIRST_REC J 


BEGIN 
NEW_RECORD_POINTER = INPUT_BUFFER_PTR + 1; 
REC_ADJUST = 1; 


PAPAIN UI So ~woatusteun eee 


BEGIN 
NEW RECORD POINTER = ineuy 


CLEAR; 
ORVEAB FLAGS C CONVSV_FIRST_REC J 
| 
INPOT BUFFER_PTR LO) = %x'O0 
REC_ABJUST ="0; 


BUFFER_PTR ; 
A‘; 


| 
END | 
EGIN | 
| 
| 


ee ee ee ee ee ee Le ee LLL) 
BREE R ERE ERE E ERE EEEEEEEEEEPP PREP PPP PPP PPR PPP PPP PPP Ee 
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SSS S SS SSS SST ST ST ST 
UPB VO OP OO IO OOO TB BU BB BI BB PMA PMA AA AMA AAAS nua 


PUT = SET; 
NEW_RECORD_POINTER = INPUT_BUFFER_PTR + 1; 


6 ! 
CONVSMAIN VAX=11 CONVERT 1§-56 =1984 23:43:29 AX-11 Bliss-32 V4.0-74 Page 41) 
you~000 MAP _FTN.CCL 1Zaee=138F F3:42:8) emt Bt lesase YAO soe 9°12) | 
| 
3 1471 1460 5 REC_ADJUST = =1; 
: 1eh8 1481 4 conv? al pee AST_CR ] = _SET; ) 
; - ; 
> 1474 1208 TES; " Vet ' | 
ee : 
: 1239 1466 i If we can SPUT the STM buffer, then do it. Adjust 
3 1o%8 146 ! buffer values appropriately to reflect what 
; ier ree ! happens here. 
3 128) 1470 NEW_REC_SIZ = .CONVSGW_IN_REC_SIZ + .REC_ADJUST; 
; 1288 1298 4 sda: CU cONVSGL.. STM_REC_LEN + .NEW_REC_SIZ) GTRU STM_BUF_SIZ ) | 
Py e « 
> 1485 1474 3 THEN sa a aR : BUF. 
: 1486 1475 4 BEGIN 
+ 1487 1476 4 CONVSGu _OUT_REC 12 5. CONS L_STM_REC_LEN 
: 1088 1278 § TO NOT TU STATOS © COnESROT RECORSC CY pe Sth_BUF: 
3 = 
eres 1ea0 THEN TURN .STATUS: 
; 1498 1481 4 : 
3; 149 et} 4 ! Reset STM buffer pointer to rep of buffer; 
3 1494 1483 4 ! zero current STM record Length 
; 1é96 ieee 4 STREAM BUFFER PTR = .CONVSGL_STM_BUF; 
Py Ss. 
> 1497 1486 4 CONVSGC_STM_REC_LEN = 0; 
St: es 2 
: 1500 1489 VE ( .NEW_REC_SIZ, .NEW_RECORD POINTER. «STREAM BUFFER_PTR) ; 
> 1501 1490 CONVSCE _STA_ NREC® LEN = - CONVSEL _STM_REC .NEW_REC_SIZ ; 
3 1308 1491 V$GW~OUT_REC “$2 = Ons Le “STM RECTL Ens 
; 1303 1498 CONVSAB OUT“RAB-L RABSL . CONVSGL_STM_BUF; 
: 1505 149% 
: 1506 1495 RETURN soeck, uctbee 
: 1507 1496 
: 1508 1497 1 END; 
OFFC 00000 CONVSSMAP_FTN_ ech: | 
.QORD” Save R2, RS, R4,R5,R6,R7,RB,RI,RI0,R11 : 1233 
58 000G CF 9€ 0000 MOVAB cOnvSeL “STM_BUF, R11 : 
SA 9006 CF 9E 0000 MOVAB CONV NVSAB OUT"RAB+40, R10 : 
9 99 * CF 9E 0000C MOVAB DJOST,~ : 
3 006 CF 9E 00011 MOVAB CeNUseL _STA MAREC LE LEN, RB F 
00 G CF 9 16 MOVAB CONVSAB-FLAG ; 
: G6 CF OD 1 MOVL § CONVSAB"IN_RAB ie, ‘ng 71 86 
3 6A D MOVL CONVSAB- OUT_RAB 1287 | 
2 04 «AA p MOVL ONVS$AB_OUT~ RABS +66. R : 1289 
7 TSTB igen “FLAGS : 1296 
} 9 BLSS : 
00 1 B BRW 14$ : 
01 67 02 ED O002E 1$: CMPZ2V #7, #2, CONVSAB_FLAGS+2, #1 : 1299 
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AIN AX=11 CONVERT 18-5 4 9 AX-11 Bliss-32 V4.0-7 
Sony b00. MAP FING CL sarge SBe F3iF2:6) | Hebd Bt ESncmatn cosa, 
60 : D1 MOVB si2. (RO) 
RW 
30 of : 07 16$: che i #48 
05 01 «A? ot E oC BBC "i, CONVSAB_FLAGS*+3, 17$ 
52 1 E MOVL #1. PUT 
9 
BE an, RE 
5 FF OA 5 £8 * - MOVAB “ta 0. NEW. RECORD POINTER 
FF i OAODA 8F B E MOVW if 7 
6 1 0 f ROVL rEc_ “User 
28 1 91 orf 18$: CAPR ; a as 
05 01 «A? a Ff OFC BBC CONVSAB_FLAGS+3, 19$ 
84 p 0 00101 MOVB a8, (STREAM BUFFER. PTR)+ 
: D6 001 INCL CONVSGL. STM_REC_L 
ae OT Oolos tere’ OMS 
- a agigs am peg By se 
05 01 A? ot if 010F BBC #1, CONVSAB_FLAGS+3, 21$ 
52 1 DO 00114 MOVL #1. PU 
HS os, BRL Bt 
1A 01 «A? 08 £0 00118 6BS ae. CONVSAB_FLAGS+3, 23$ 
53 oO 01 g MOVL RO. NEW RECORD_POINTER 
60 0A 90 001 move #10, (RO) 
69 D4 00126 CLRL = REC_ADJUST 
17 11 00128 BRB 24$ 
51 D5 91 A 22% TSTL = RV 
Bodie Bt 
#1, CONVSAB_FLAGS+3, 23$ 
™ " nH 8 3 } fOve ri$, cst (STR REAR BUFFER. PTR)+ 
68 D6 001 INCL  CONVSGL_STM_REC_LEN™ 
53 01 Ad i 1 A 23$: MOVAB TRO), RE few UTRECORD. POINTER 
01 =A? ; bh 141 248 Bicee ae CONUSAB” FLAGS+3 
11 01 «A? 1 EO 147 25$: BBS a. CONVSAB_FLAGS+3, 28S 
4 #2, CONVSAB_FLAGS+3, 29S 
2 - a ; b9 i 5 26$ BOVE i: W_RECORD_POINTER 
rs A 1 4 MOVE =f ) 
Ht a 
53 1 po 130 88: MOVL #1, PUT 
3 01 AO E \ $: HOVAB cho dee NEW ee POINTER 
01 t, i é 167 308: BI SB) Ay CONUAB FL LAGS+3 
& 00006 CF 168 31$:  CVTWL CONVS$GW_IN REC SIZ NeW _REC_S12Z 
5 AE Sa eat 
0 : 6 ci 126 ADDL 3 Moy niores” CONVSGL_STM_REC_LEN, RO 
we 1 8 181 BLEGU 33$ 
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CONVSMAIN VAX=11 CONVERT 1-5 ep-1984 23:43:29 AX=11 Bliss-32 V4.0-74 Page 44 
you~000 MAP_FTN_CCL 12~eR=]38s 3:52:87 | Hed Bt leenbealn css, 9¢ 45) 
00006 CF 68 80 183 328:  MOVW  CONVSGL_STM_REC_LEN, CONVS$GW_OUT_REC_SIZ =; 147 

A DO 001 MOVL CONVSG NVSGL TM” BUF. CON V$AB_OUT-RAB?4 + 147 

0000v cf FB 1 CALLS NDSSPOT POT_RECO : 1478 

7 £9 001 BLBC STATUS 8 : 

54 é DO 0019 MOVL § CONVSGL_STM BUF. STREAM_BUFFER_PTR + 1485 
$ D4 19% CLRL CONVSGL™ STM-REC_LEN : 1486 

64 63 6 28 00198 33$ MOVC3 NEW REC =Bize ,(NEWAS RECORD_POINTER), - + 148 
68 56 CO 0019¢ ADDL2 NEW _RECSIZ, ONVSeL.. STM_REC_LEN + 1490 

00006 CF 6 80 19F OVW  CONVSGL"STM-REC_LEN, CONVSGW-OUT REC_S1Z + 1491 

A B 00 001A4 MOVL CONVSGL- STM~BUF, CONV$AB_OUT-RAB? : 1492 

0 1 B? 1A7 $e$: MOVL #1, R 3: 149 

4 OO1AA 35$: — RET : 1497 


; Routine Size: 427 bytes, Routine Base: _CONVSCODE + 04E6 
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3:29  VAX=11 Bliss-32 v4.0-76 Page 45 
PUT_RECORD 2:8 CONV. SRCJCONV tht 


AMET Eo 
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ZSBTTL ‘PUT RECORD’ 
GLOBAL ROUTINE CONVSSPUT_RECORD = 


Sed 


4 
! Functional Description: 


SPUT record to output file. 
i Calling Sequence: 
CONVSSPUT_RECORD () 


— > 4 


WN O OONAUSWN “OO ONOULS WN O 


i Input Parameters: 


3 1 1 1 

3 1 1 1 
3 1 1 1 
| i g i 

31 1 1 | 
3 1 1 1! 

3 7 1505 1! 

3 3 1 1! | 
3: 1 1 1! 
t 188 

q 1a) 

: 1 lee 

; ! ; 13 ! Implicit Inputs: 

; 1316 CONVS$AB_OUT_RAB | 
; , 1318 : ; Output Parameters: 

HB TERT noe 
: 15 1522 1! Implicit Outputs: 

3 1535 15 4 1! 

a 1335 11 none 
; 13 8 1326 ! Routine Value: | 
: 1540 13 8 1: See CONVSSEXCEPTION 

3 1561 1 9 1! 

31 *g 1 1 ! Routines Called: 

3 154 1531 1! 

3 1546 15 § 1! CONVSSEXCEPTION 

3: 1545 15 1! 

; 1366 13 : ! : Side Effects: 

; 1346 3 i The record is $PUT to the output file 

1384 1839 > BEGIN 

: 135¢ 1340 LOCAL | 
: 1598 1341 STATUS; 

; : 55 1368 : Set the size of the record to OUT_REC_SIZE which is set by GET_RECORD | 
3 He 1345 CONVSAB_OUT_RAB { RABSW_RSZ ) = .CONVSGW_OUT_REC_SIZ; | 
: 1337 ' of : Write the record, if there was an error call the exception handler 
: 1364 : rh if NOT ( STATUS = SPUT ( RAB=CONVSAB_OUT_RAB ) ) | 
:1 $ 1 31 ' If the exception handler returned with an error 
3 1298 ' 26 } then it was fatal 
; 1566 1554 STATUS = CONVSSEXCEPTION( .STATUS ); 


Library Statistics 


6 
IN sot he arent t.. sep 143: , AX-11 Blis orohal 0-74 
-000 4e- Sep- 138 $3343 CONV.SRCIC SNVAAYN “B35. 
| re RETURN .STATUS 
1 re 1 : : 
1570 END; 
ENTRY CONVSSPUT_RECORD, Save nothin 
00006 cF 90006 cr 8D Rovy  CONVSGW_ODT_REC S12, CONVSAB "BuT_RAB+3é 
00G CF 9F PUSHAB CONVSAB. OUT"R 
000000006 99 1 4 CALLS ea 
8 E 14 BLBS erat 
i) 17 PUSHL 3 
FD36—Ss«CF 1 FB Bele CALLS #1, CONVSSEXCEPTION 
04 OOO1E 1$: RET 
; Routine Size: 31 bytes, Routine Base: _CONVSCODE + 0691 
137) 1338 1 
1572 1560 0 END ELUDOM 
-EXTRN LIBSSTOP 
PSECT SUMMARY 
Name Bytes Attributes 
_CONVSOWUN 346 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL. CON, 4 Sg bet f 
_CONVSCODE 1712 WNOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


eocecoce Symbols -------- Pages Processing 
File Total idaded Percent Mapped Time 
$255$DUA28: CSYSLIBJLIB.L32;1 18619 0 100 0:01.9 
Stitt 8: CCONV. SRC Ele ONVERT.L32;1 165 4 16 99 $6;00:3 


COMMAND QUALIFIERS 


BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:CONVMAIN/OBJ=0BJ$:CONVMAIN MSRC$: CONVMAIN/UPDATE=(ENHS: CONVMAIN) 


6 
C IN ni seer 1b-s8p-1984 23:43:29 VAX=11 Bliss-32 V4.0-742 Page 47 


3 Size: 171 7 544 data bytes 
; Run Time: 

; Elapsed Time: 

; Lines n: é 


: Lexemes/CPU-Min: 1 633 
; canety Ue Used: 217 pages 
; Compilation Complete 
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